﻿Public Class Contacts

    Private oApp As SMSClasses.App
    Private WithEvents oPeople As SMSClasses.People

    Private Sub Contacts_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        oApp = SMSClasses.App.Instance
        oPeople = oApp.Contacts
        Me.BindingSource1.DataSource = oPeople
        If oPeople.Count < 1 Then oPeople.AddNew()


    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        oApp.Contacts = oPeople
        Me.Hide()
        Me.Close()
        Me.Dispose()

    End Sub
End Class